       data = 'main = putStrLn "Hello World" :: IO ()'
       {tokens} = grammar.tokenizeLine(data)
       expect(tokens).toEqual [
-        { value : 'main', scopes : [ 'source.haskell' ] }
+        { value : 'main', scopes : [ 'source.haskell', 'identifier.haskell' ] }
         { value : ' ', scopes : [ 'source.haskell' ] }
         { value : '=', scopes : [ 'source.haskell', 'keyword.operator.haskell' ] }
         { value : ' ', scopes : [ 'source.haskell' ] }

      """
      expect(lines).toEqual  [
          [
            { value : '1', scopes : [ 'source.haskell', 'constant.numeric.haskell' ] }
          ],
          [
            { value : '/', scopes : [ 'source.haskell', 'keyword.operator.haskell' ] }
            { value : ' ', scopes : [ 'source.haskell' ] }
            { value : '2', scopes : [ 'source.haskell', 'constant.numeric.haskell' ] }
          ]
        ]


      data = 'main = (putStrLn :: String -> IO ()) ("Hello World" :: String)'
      {tokens} = grammar.tokenizeLine(data)
      expect(tokens).toEqual [
        { value : 'main', scopes : [ 'source.haskell', 'identifier.haskell' ] }
        { value : ' ', scopes : [ 'source.haskell' ] }
        { value : '=', scopes : [ 'source.haskell', 'keyword.operator.haskell' ] }
        { value : ' ', scopes : [ 'source.haskell' ] }
