15 lines
365 B
Haskell
15 lines
365 B
Haskell
module Ringo.Utils where
|
|
|
|
import Data.List (find)
|
|
|
|
import Ringo.Types
|
|
|
|
findTable :: TableName -> [Table] -> Maybe Table
|
|
findTable tName = find ((== tName) . tableName)
|
|
|
|
findFact :: TableName -> [Fact] -> Maybe Fact
|
|
findFact fName = find ((== fName) . factName)
|
|
|
|
findColumn :: ColumnName -> [Column] -> Maybe Column
|
|
findColumn cName = find ((== cName) . columnName)
|