[haddock for Data.Initialiser
martin.hofmann@uni-bamberg.de**20090108095138] hunk ./src/Data/Initialiser.hs 3
-module Data.Initialiser where
+module Data.Initialiser (
+    
+    -- * Converting from Language.haskell.TH
+    decs2rules, dec2rules, clauses2rules, clause2rules,
+    -- * Converting to Language.haskell.TH
+    rules2decs, rules2dec, rules2clauses, rule2clauses
+
+    )where
hunk ./src/Data/Initialiser.hs 23
-
+-- | Convert a list of Language.Haskell.TH.Dec to a list of Name Rules pairs
+--   A Dec is expected to be a function definition (FunD), if not, an error
+--   is thrown.
hunk ./src/Data/Initialiser.hs 29
+-- | Convert a single Language.Haskell.TH.Dec to a Name Rules pair
+--   A Dec is expected to be a function definition (FunD), if not, an error
+--   is thrown.
hunk ./src/Data/Initialiser.hs 33
-dec2rules (FunD n cs) = (n,toRules cs) 
+dec2rules (FunD n cs) = (n,clauses2rules cs) 
hunk ./src/Data/Initialiser.hs 38
- 
-toRules :: [Clause] -> Rules
-toRules cs = rules $ map toRule cs
hunk ./src/Data/Initialiser.hs 39
-toRule :: Clause -> Rule
-toRule (Clause ls (NormalB rs) _) = rule ls rs
-toRule c = error $ 
+-- | Convert a list of Langugae.Haskell.TH.Clause to Rules.
+--   A Clause is expected to have a normal (not guarded) body (NormalB),
+--   otherwise an error is thrown.
+clauses2rules :: [Clause] -> Rules
+clauses2rules cs = rules $ map clause2rules cs
+
+-- | Convert a sibgle Langugae.Haskell.TH.Clause to a Rule.
+--   A Clause is expected to have a normal (not guarded) body (NormalB),
+--   otherwise an error is thrown.
+clause2rules :: Clause -> Rule
+clause2rules (Clause ls (NormalB rs) _) = rule ls rs
+clause2rules c = error $ 
hunk ./src/Data/Initialiser.hs 54
-    
+
+--    
hunk ./src/Data/Initialiser.hs 60
-rules2dec (n,rs) = FunD n (fromRules rs)
+rules2dec (n,rs) = FunD n (rules2clauses rs)
hunk ./src/Data/Initialiser.hs 62
-fromRules :: Rules -> [Clause]
-fromRules rs = map fromRule (rulesToList rs)
+rules2clauses :: Rules -> [Clause]
+rules2clauses rs = map rule2clauses (rulesToList rs)
hunk ./src/Data/Initialiser.hs 65
-fromRule :: Rule -> Clause
-fromRule r = Clause (lhs r) (NormalB $ rhs r) [] 
+rule2clauses :: Rule -> Clause
+rule2clauses r = Clause (lhs r) (NormalB $ rhs r) [] 