lint fix
This commit is contained in:
@@ -91,7 +91,7 @@ main = do
|
|||||||
dbstructure <- case metadata of
|
dbstructure <- case metadata of
|
||||||
Left e -> fail $ show e
|
Left e -> fail $ show e
|
||||||
Right (tabs, rels, cols, keys) ->
|
Right (tabs, rels, cols, keys) ->
|
||||||
return $ DbStructure {
|
return DbStructure {
|
||||||
tables=tabs
|
tables=tabs
|
||||||
, columns=cols
|
, columns=cols
|
||||||
, relations=rels
|
, relations=rels
|
||||||
|
|||||||
Reference in New Issue
Block a user