hunk ./LSystem/LSystem.hs 6
-import Data.Map as Map
+import qualified Data.Map as M
hunk ./LSystem/LSystem.hs 14
--- | A 'Map.Map' from 'Element's to 'Axiom's.
-type Rules = Map.Map Element Axiom
+-- | A 'M.Map' from 'Element's to 'Axiom's.
+type Rules = M.Map Element Axiom
hunk ./LSystem/LSystem.hs 24
-lSystem a rs = LSystem a (fromList rs)
+lSystem a rs = LSystem a (M.fromList rs)
hunk ./LSystem/LSystem.hs 28
-getRule rs c = Map.findWithDefault [c] c rs
+getRule rs c = M.findWithDefault [c] c rs