{-------------------------------------------------------------------------------
  Util
-------------------------------------------------------------------------------}

categorySplit :: String -> [String]
categorySplit xs | all isSpace xs = []
categorySplit :: String -> [String]
categorySplit xs | all isSpace xs = []
categorySplit xs | all isSpace xs = []