diff options
-rw-r--r-- | FunctorToMaybe.hs | 2 | ||||
-rw-r--r-- | Hosts.hs | 2 | ||||
-rw-r--r-- | LengthPrefixedBE.hs | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/FunctorToMaybe.hs b/FunctorToMaybe.hs index a718010..658b024 100644 --- a/FunctorToMaybe.hs +++ b/FunctorToMaybe.hs | |||
@@ -23,7 +23,7 @@ module FunctorToMaybe where | |||
23 | 23 | ||
24 | #if MIN_VERSION_base(4,6,0) | 24 | #if MIN_VERSION_base(4,6,0) |
25 | #else | 25 | #else |
26 | import Control.Monad.Instances | 26 | import Control.Monad.Instances() |
27 | #endif | 27 | #endif |
28 | 28 | ||
29 | -- | The 'FunctorToMaybe' class genaralizes 'Maybe' in that the | 29 | -- | The 'FunctorToMaybe' class genaralizes 'Maybe' in that the |
@@ -86,9 +86,11 @@ empty = Hosts { lineCount = 0 | |||
86 | , namenum = Map.empty | 86 | , namenum = Map.empty |
87 | } | 87 | } |
88 | 88 | ||
89 | {- | ||
89 | parseHosts fname = do | 90 | parseHosts fname = do |
90 | input <- L.readFile fname | 91 | input <- L.readFile fname |
91 | return $ decode input | 92 | return $ decode input |
93 | -} | ||
92 | 94 | ||
93 | decode input = | 95 | decode input = |
94 | let ls = L.lines input | 96 | let ls = L.lines input |
diff --git a/LengthPrefixedBE.hs b/LengthPrefixedBE.hs index dd74fe3..0ccd0e2 100644 --- a/LengthPrefixedBE.hs +++ b/LengthPrefixedBE.hs | |||
@@ -4,9 +4,7 @@ module LengthPrefixedBE | |||
4 | , decode_bigendian | 4 | , decode_bigendian |
5 | ) where | 5 | ) where |
6 | 6 | ||
7 | import Debug.Trace | ||
8 | import qualified Data.ByteString.Lazy as L | 7 | import qualified Data.ByteString.Lazy as L |
9 | import Control.Monad (when) | ||
10 | import Data.Bits | 8 | import Data.Bits |
11 | import Data.Binary | 9 | import Data.Binary |
12 | import Data.Binary.Get | 10 | import Data.Binary.Get |