Prog "Database.CDBI.Description" ["Database.CDBI.Connection","Prelude","Time"] [TypeSyn ("Database.CDBI.Description","Table") Public [] (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]),Type ("Database.CDBI.Description","EntityDescription") Public [0] [Cons ("Database.CDBI.Description","ED") 5 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLType") []],FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]),FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]),FuncType (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]) (TVar 0)]],Type ("Database.CDBI.Description","CombinedDescription") Public [0] [Cons ("Database.CDBI.Description","CD") 4 Public [TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLType") []]]],FuncType (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]) (TVar 0),FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]]),FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]])]],Type ("Database.CDBI.Description","Column") Public [0] [Cons ("Database.CDBI.Description","Column") 2 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],Type ("Database.CDBI.Description","ColumnDescription") Public [0] [Cons ("Database.CDBI.Description","ColDesc") 4 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Database.CDBI.Connection","SQLType") [],FuncType (TVar 0) (TCons ("Database.CDBI.Connection","SQLValue") []),FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TVar 0)]]] [Func ("Database.CDBI.Description","combineDescriptions") 6 Public (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 1]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))) (FuncType (FuncType (TVar 2) (TCons ("Prelude","(,)") [TVar 0,TVar 1])) (TCons ("Database.CDBI.Description","CombinedDescription") [TVar 2]))))))) (Rule [1,2,3,4,5,6] (Comb ConsCall ("Database.CDBI.Description","CD") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("Database.CDBI.Description","getTable") [Var 1],Var 2,Comb FuncCall ("Database.CDBI.Description","getTypes") [Var 1]],Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("Database.CDBI.Description","getTable") [Var 3],Var 4,Comb FuncCall ("Database.CDBI.Description","getTypes") [Var 3]],Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 1) ("Database.CDBI.Description","combineDescriptions.createFunction1.2") [Var 3,Var 1,Var 5],Comb (FuncPartCall 1) ("Database.CDBI.Description","combineDescriptions.createFunction2.2") [Var 3,Var 1,Var 6],Comb (FuncPartCall 1) ("Database.CDBI.Description","combineDescriptions.createFunction3.2") [Var 3,Var 1,Var 6]])),Func ("Database.CDBI.Description","combineDescriptions.createFunction1.2") 4 Private (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 1]) (FuncType (FuncType (TVar 1) (FuncType (TVar 0) (TVar 2))) (FuncType (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]) (TVar 2))))) (Rule [1,2,3,4] (Let [(5,Comb FuncCall ("Prelude","length") [Comb FuncCall ("Database.CDBI.Description","getTypes") [Var 2]])] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 3,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToEntity") [Var 2],Comb FuncCall ("Prelude","take") [Var 5,Var 4]]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToEntity") [Var 1],Comb FuncCall ("Prelude","drop") [Var 5,Var 4]]]))),Func ("Database.CDBI.Description","combineDescriptions.createFunction2.2") 4 Private (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 1]) (FuncType (FuncType (TVar 2) (TCons ("Prelude","(,)") [TVar 1,TVar 0])) (FuncType (TVar 2) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]]))))) (Rule [1,2,3,4] (Let [(5,Comb FuncCall ("Prelude","apply") [Var 3,Var 4]),(6,Comb FuncCall ("Database.CDBI.Description","combineDescriptions.createFunction2.2._#selFP2#ent1") [Var 5]),(7,Comb FuncCall ("Database.CDBI.Description","combineDescriptions.createFunction2.2._#selFP3#ent2") [Var 5])] (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToValues") [Var 2],Var 6],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToValues") [Var 1],Var 7],Comb ConsCall ("Prelude","[]") []]]))),Func ("Database.CDBI.Description","combineDescriptions.createFunction2.2._#selFP2#ent1") 1 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 0)) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Database.CDBI.Description","combineDescriptions.createFunction2.2._#selFP3#ent2") 1 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 1)) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Database.CDBI.Description","combineDescriptions.createFunction3.2") 4 Private (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 1]) (FuncType (FuncType (TVar 2) (TCons ("Prelude","(,)") [TVar 1,TVar 0])) (FuncType (TVar 2) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]]))))) (Rule [1,2,3,4] (Let [(5,Comb FuncCall ("Prelude","apply") [Var 3,Var 4]),(6,Comb FuncCall ("Database.CDBI.Description","combineDescriptions.createFunction3.2._#selFP5#ent1") [Var 5]),(7,Comb FuncCall ("Database.CDBI.Description","combineDescriptions.createFunction3.2._#selFP6#ent2") [Var 5])] (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToInsertValues") [Var 2],Var 6],Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToInsertValues") [Var 1],Var 7],Comb ConsCall ("Prelude","[]") []]]))),Func ("Database.CDBI.Description","combineDescriptions.createFunction3.2._#selFP5#ent1") 1 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 0)) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Database.CDBI.Description","combineDescriptions.createFunction3.2._#selFP6#ent2") 1 Private (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 1)) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Database.CDBI.Description","addDescription") 5 Public (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 1))) (FuncType (FuncType (TVar 1) (TVar 0)) (FuncType (TCons ("Database.CDBI.Description","CombinedDescription") [TVar 1]) (TCons ("Database.CDBI.Description","CombinedDescription") [TVar 1])))))) (Rule [1,2,3,4,5] (Case Flex (Var 5) [Branch (Pattern ("Database.CDBI.Description","CD") [6,7,8,9]) (Comb ConsCall ("Database.CDBI.Description","CD") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Comb FuncCall ("Database.CDBI.Description","getTable") [Var 1],Var 2,Comb FuncCall ("Database.CDBI.Description","getTypes") [Var 1]],Var 6],Comb (FuncPartCall 1) ("Database.CDBI.Description","addDescription.createFunction1.15") [Var 1,Var 3,Var 7],Comb (FuncPartCall 1) ("Database.CDBI.Description","addDescription.createFunction2.15") [Var 1,Var 4,Var 8],Comb (FuncPartCall 1) ("Database.CDBI.Description","addDescription.createFunction3.15") [Var 1,Var 4,Var 9]])])),Func ("Database.CDBI.Description","addDescription.createFunction1.15") 4 Private (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 1))) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]) (TVar 1)) (FuncType (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]) (TVar 1))))) (Rule [1,2,3,4] (Let [(5,Comb FuncCall ("Prelude","length") [Comb FuncCall ("Database.CDBI.Description","getTypes") [Var 1]])] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 2,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToEntity") [Var 1],Comb FuncCall ("Prelude","take") [Var 5,Var 4]]],Comb FuncCall ("Prelude","apply") [Var 3,Comb FuncCall ("Prelude","drop") [Var 5,Var 4]]]))),Func ("Database.CDBI.Description","addDescription.createFunction2.15") 4 Private (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (FuncType (TVar 1) (TVar 0)) (FuncType (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]])) (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToValues") [Var 1],Comb FuncCall ("Prelude","apply") [Var 2,Var 4]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","apply") [Var 3,Var 4]])),Func ("Database.CDBI.Description","addDescription.createFunction3.15") 4 Private (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (FuncType (TVar 1) (TVar 0)) (FuncType (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]])) (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Database.CDBI.Description","getToInsertValues") [Var 1],Comb FuncCall ("Prelude","apply") [Var 2,Var 4]],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","apply") [Var 3,Var 4]])),Func ("Database.CDBI.Description","getTable") 1 Public (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ED") [2,3,4,5,6]) (Var 2)])),Func ("Database.CDBI.Description","getTypes") 1 Public (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLType") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ED") [2,3,4,5,6]) (Var 3)])),Func ("Database.CDBI.Description","getToValues") 1 Public (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]))) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ED") [2,3,4,5,6]) (Var 4)])),Func ("Database.CDBI.Description","getToInsertValues") 1 Public (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]))) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ED") [2,3,4,5,6]) (Var 5)])),Func ("Database.CDBI.Description","getToEntity") 1 Public (FuncType (TCons ("Database.CDBI.Description","EntityDescription") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TCons ("Database.CDBI.Connection","SQLValue") []]) (TVar 0))) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ED") [2,3,4,5,6]) (Var 6)])),Func ("Database.CDBI.Description","getColumnSimple") 1 Public (FuncType (TCons ("Database.CDBI.Description","Column") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","Column") [2,3]) (Var 2)])),Func ("Database.CDBI.Description","getColumnFull") 1 Public (FuncType (TCons ("Database.CDBI.Description","Column") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","Column") [2,3]) (Var 3)])),Func ("Database.CDBI.Description","getColumnName") 1 Public (FuncType (TCons ("Database.CDBI.Description","ColumnDescription") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ColDesc") [2,3,4,5]) (Var 2)])),Func ("Database.CDBI.Description","getColumnTableName") 1 Public (FuncType (TCons ("Database.CDBI.Description","ColumnDescription") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ColDesc") [2,3,4,5]) (Var 2)])),Func ("Database.CDBI.Description","getColumnTyp") 1 Public (FuncType (TCons ("Database.CDBI.Description","ColumnDescription") [TVar 0]) (TCons ("Database.CDBI.Connection","SQLType") [])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ColDesc") [2,3,4,5]) (Var 3)])),Func ("Database.CDBI.Description","getColumnValueBuilder") 1 Public (FuncType (TCons ("Database.CDBI.Description","ColumnDescription") [TVar 0]) (FuncType (TVar 0) (TCons ("Database.CDBI.Connection","SQLValue") []))) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ColDesc") [2,3,4,5]) (Var 4)])),Func ("Database.CDBI.Description","getColumnValueSelector") 1 Public (FuncType (TCons ("Database.CDBI.Description","ColumnDescription") [TVar 0]) (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TVar 0))) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Description","ColDesc") [2,3,4,5]) (Var 5)])),Func ("Database.CDBI.Description","toValueOrNull") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Database.CDBI.Connection","SQLValue") [])) (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (TCons ("Database.CDBI.Connection","SQLValue") []))) (Rule [1,2] (Case Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Database.CDBI.Connection","SQLNull") []),Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("Prelude","apply") [Var 1,Var 3])])),Func ("Database.CDBI.Description","sqlKeyOrNull") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Int") [])) (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (TCons ("Database.CDBI.Connection","SQLValue") []))) (Rule [1,2] (Case Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Database.CDBI.Connection","SQLNull") []),Branch (Pattern ("Prelude","Just") [3]) (Comb ConsCall ("Database.CDBI.Connection","SQLInt") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3]])])),Func ("Database.CDBI.Description","sqlIntOrNull") 1 Public (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","Int") []]) (TCons ("Database.CDBI.Connection","SQLValue") [])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Database.CDBI.Connection","SQLNull") []),Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Database.CDBI.Connection","SQLInt") [Var 2])])),Func ("Database.CDBI.Description","sqlFloatOrNull") 1 Public (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","Float") []]) (TCons ("Database.CDBI.Connection","SQLValue") [])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Database.CDBI.Connection","SQLNull") []),Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Database.CDBI.Connection","SQLFloat") [Var 2])])),Func ("Database.CDBI.Description","sqlCharOrNull") 1 Public (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","Char") []]) (TCons ("Database.CDBI.Connection","SQLValue") [])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Database.CDBI.Connection","SQLNull") []),Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Database.CDBI.Connection","SQLChar") [Var 2])])),Func ("Database.CDBI.Description","sqlStringOrNull") 1 Public (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Database.CDBI.Connection","SQLValue") [])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Database.CDBI.Connection","SQLNull") []),Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Database.CDBI.Connection","SQLString") [Var 2])])),Func ("Database.CDBI.Description","sqlString") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Database.CDBI.Connection","SQLValue") [])) (Rule [1] (Comb ConsCall ("Database.CDBI.Connection","SQLString") [Var 1])),Func ("Database.CDBI.Description","sqlBoolOrNull") 1 Public (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","Bool") []]) (TCons ("Database.CDBI.Connection","SQLValue") [])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Database.CDBI.Connection","SQLNull") []),Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Database.CDBI.Connection","SQLBool") [Var 2])])),Func ("Database.CDBI.Description","sqlDateOrNull") 1 Public (FuncType (TCons ("Prelude","Maybe") [TCons ("Time","ClockTime") []]) (TCons ("Database.CDBI.Connection","SQLValue") [])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Database.CDBI.Connection","SQLNull") []),Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Database.CDBI.Connection","SQLDate") [Var 2])])),Func ("Database.CDBI.Description","keyOrNothing") 2 Public (FuncType (FuncType (TCons ("Prelude","Int") []) (TVar 0)) (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TCons ("Prelude","Maybe") [TVar 0]))) (Rule [1,2] (Case Flex (Var 2) [Branch (Pattern ("Database.CDBI.Connection","SQLNull") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Database.CDBI.Connection","SQLInt") [3]) (Comb ConsCall ("Prelude","Just") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3]])])),Func ("Database.CDBI.Description","intOrNothing") 1 Public (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","Int") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Connection","SQLNull") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Database.CDBI.Connection","SQLInt") [2]) (Comb ConsCall ("Prelude","Just") [Var 2])])),Func ("Database.CDBI.Description","floatOrNothing") 1 Public (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","Float") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Connection","SQLNull") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Database.CDBI.Connection","SQLFloat") [2]) (Comb ConsCall ("Prelude","Just") [Var 2])])),Func ("Database.CDBI.Description","charOrNothing") 1 Public (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","Char") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Connection","SQLNull") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Database.CDBI.Connection","SQLChar") [2]) (Comb ConsCall ("Prelude","Just") [Var 2])])),Func ("Database.CDBI.Description","stringOrNothing") 1 Public (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Connection","SQLNull") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Database.CDBI.Connection","SQLString") [2]) (Comb ConsCall ("Prelude","Just") [Var 2])])),Func ("Database.CDBI.Description","fromStringOrNull") 1 Public (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Connection","SQLNull") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Database.CDBI.Connection","SQLString") [2]) (Var 2)])),Func ("Database.CDBI.Description","boolOrNothing") 1 Public (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TCons ("Prelude","Maybe") [TCons ("Prelude","Bool") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Connection","SQLNull") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Database.CDBI.Connection","SQLBool") [2]) (Comb ConsCall ("Prelude","Just") [Var 2])])),Func ("Database.CDBI.Description","dateOrNothing") 1 Public (FuncType (TCons ("Database.CDBI.Connection","SQLValue") []) (TCons ("Prelude","Maybe") [TCons ("Time","ClockTime") []])) (Rule [1] (Case Flex (Var 1) [Branch (Pattern ("Database.CDBI.Connection","SQLNull") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Database.CDBI.Connection","SQLDate") [2]) (Comb ConsCall ("Prelude","Just") [Var 2])]))] []