Permalink
Browse files

adding missing Bases directory to Parent imports

  • Loading branch information...
1 parent 90f663d commit dc505437f0f2aca10a0c39b04fe4140360d2eeee @alsonkemp committed Jan 10, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 Turbinado/Database/ORM/Output.hs
@@ -140,7 +140,7 @@ generateChildModelImports cs =
map (\(_, fks, _) -> fks) $ M.elems cs
generateParentModelImports t ts =
- map (\ptn -> "import qualified App.Models." ++ capitalizeName ptn ++ "Type as " ++ capitalizeName ptn ++ "Type\nimport qualified App.Models." ++ capitalizeName ptn ++ "Functions as " ++ capitalizeName ptn ++ "Functions") $
+ map (\ptn -> "import qualified App.Models.Bases." ++ capitalizeName ptn ++ "Type as " ++ capitalizeName ptn ++ "Type\nimport qualified App.Models.Bases." ++ capitalizeName ptn ++ "Functions as " ++ capitalizeName ptn ++ "Functions") $
nub $ filter (not . null) $
map parentFilter $ M.assocs ts
where parentFilter (ptn, (cs, _)) =

0 comments on commit dc50543

Please sign in to comment.