Bryan O'Sullivan avatar Bryan O'Sullivan committed 3ffaa35

Small tidyups.

Comments (0)

Files changed (1)


-{-# LANGUAGE BangPatterns, OverloadedStrings #-}
+{-# LANGUAGE BangPatterns #-}
 -- |
 -- Module      : Data.ByteString.Base16
     , decode
     ) where
+import Control.Monad (forM_)
 import Data.Bits ((.&.), shiftL, shiftR)
 import Data.ByteString.Char8 (empty)
 import Data.ByteString.Internal (ByteString(..), createAndTrim', unsafeCreate)
 import Data.Word (Word8)
-import Control.Monad (forM_)
+import Foreign.ForeignPtr (ForeignPtr, withForeignPtr)
 import Foreign.Marshal.Alloc (mallocBytes)
-import Foreign.ForeignPtr (ForeignPtr, withForeignPtr)
 import Foreign.Ptr (Ptr, minusPtr, plusPtr)
 import Foreign.Storable (peek, poke)
 import System.IO.Unsafe (unsafePerformIO)
   digits :: Ptr Word8
   !digits = unsafePerformIO $ do
              ptr <- mallocBytes 16
-             forM_ (zip [0..] ("0123456789abcdef"::String)) $ \(i,c) ->
+             forM_ (zip [0..] "0123456789abcdef") $ \(i,c) ->
                poke (ptr `plusPtr` i) ((fromIntegral (fromEnum c)) :: Word8)
              return ptr
   {-# NOINLINE digits #-}
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.