Update to new symantic and draft Modules rendition.

[comptalang.git] / lib / Hcompta / Lib / Consable.hs

diff --git a/lib/Hcompta/Lib/Consable.hs b/lib/Hcompta/Lib/Consable.hs
index 86cb53664c13cae95dc4611099628e085b326f58..a886435609cbe9a694439d251733bb097f69d761 100644 (file)
--- a/lib/Hcompta/Lib/Consable.hs
+++ b/lib/Hcompta/Lib/Consable.hs
@@ -5,13 +5,13 @@
 
 module Hcompta.Lib.Consable where
 
--- import           Data.Functor.Compose (Compose(..))
--- import           Control.Applicative (Const(..))
-import           Data.Monoid (Monoid(..))
-import           Data.Ord (Ord(..))
+-- import Control.Applicative (Const(..))
+import Data.Function (id)
+-- import Data.Functor.Compose (Compose(..))
+import Data.Monoid (Monoid(..))
+import Data.Ord (Ord(..))
 import qualified Data.Map.Strict as Map
-import           Data.Map.Strict (Map)
-import           Prelude (id)
+import Data.Map.Strict (Map)
 
 class Consable x m where
        mcons :: x -> m -> m