Workaround for bad syntax highlighting

Author: jacereda

src/Data/ArrayBuffer.purs

@@ -12,15 +12,19 @@ instance showArrayBuffer :: Show ArrayBuffer where
 
 foreign import showImpl "var showImpl = require('util').inspect;" :: ArrayBuffer -> String
 
-foreign import create """
-  function create(s) {
-    return new ArrayBuffer(s);
-  }""" :: ByteLength -> ArrayBuffer
-
-foreign import byteLength """
-  function byteLength(a) {
-    return a.byteLength;
-  }""" :: ArrayBuffer -> ByteLength
+foreign import create
+"""
+function create(s) {
+  return new ArrayBuffer(s);
+}
+""" :: ByteLength -> ArrayBuffer
+
+foreign import byteLength
+"""
+function byteLength(a) {
+  return a.byteLength;
+}
+""" :: ArrayBuffer -> ByteLength
 
 foreign import sliceImpl """
   function sliceImpl(s, e, a) {

src/Data/ArrayBuffer/DataView.purs

@@ -8,33 +8,38 @@ import Control.Monad.Eff
 foreign import data DataView :: *
 
 
-foreign import whole """
+foreign import whole
+"""
 function whole(b) {
   return new DataView(b);
 }
 """ :: ArrayBuffer -> DataView
 
-foreign import sliceImpl """
+foreign import sliceImpl
+"""
 function sliceImpl(s, l, b) {
   return new DataView(b, s, l);
 }
 """ :: forall e. Fn3 ByteOffset ByteLength ArrayBuffer DataView
 slice :: forall e. ByteOffset -> ByteLength -> ArrayBuffer -> DataView
 slice = runFn3 sliceImpl
 
-foreign import buffer """
+foreign import buffer
+"""
 function buffer(v) {
   return v.buffer;
 }
 """ :: DataView -> ArrayBuffer
 
-foreign import byteOffset """
+foreign import byteOffset
+"""
 function byteOffset(v) {
   return v.byteOffset;
 }
 """ :: DataView -> ByteOffset
 
-foreign import byteLength """
+foreign import byteLength
+"""
 function byteLength(v) {
   return v.byteLength;
 }
@@ -43,7 +48,8 @@ function byteLength(v) {
 
 foreign import data Reader :: !                    
 
-foreign import getInt8 """
+foreign import getInt8
+"""
 function getInt8(v) {
   return function(o) {
     return function() {
@@ -55,7 +61,8 @@ function getInt8(v) {
 
 foreign import data Writer :: !
 
-foreign import setInt8 """
+foreign import setInt8
+"""
 function setInt8(v) {
   return function(o) {
     return function(n) {

src/Data/ArrayBuffer/Deserializer.purs

@@ -6,7 +6,8 @@ import qualified Data.ArrayBuffer.DataView as DV
 import Data.Function
 import Control.Monad.Eff
 
-foreign import advance """
+foreign import advance
+"""
 function advance(d) {
   return function(s) {
     return function() {

src/Data/ArrayBuffer/Serializer.purs

@@ -6,7 +6,8 @@ import qualified Data.ArrayBuffer.DataView as DV
 import Data.Function
 import Control.Monad.Eff
 
-foreign import advance """
+foreign import advance
+"""
 function advance(d) {
   return function(s) {
     return function() {

src/Data/ArrayBuffer/Typed.purs

@@ -19,26 +19,30 @@ type Int8Array = ArrayView Int8
 --type Float32Array = ArrayView Float32
 --type Float64Array = ArrayView Float64 
 
-foreign import asInt8Array """
+foreign import asInt8Array
+"""
 function asInt8Array(v) {
   return new Int8Array(v.buffer, v.byteOffset, v.byteLength);
 }
 """:: DataView -> Int8Array
 
-foreign import dataView """
+foreign import dataView
+"""
 function dataView(a) {
   return a;
 }
 """ :: forall a. ArrayView a -> DataView
 
-foreign import unsafeAtImpl """
+foreign import unsafeAtImpl
+"""
 function unsafeAtImpl(a, i) {
    return a[i];
 }
 """ :: forall a. Fn2 (ArrayView a) Number Number
 unsafeAt = runFn2 unsafeAtImpl
 
-foreign import hasIndexImpl """
+foreign import hasIndexImpl
+"""
 function hasIndexImpl(a, i) {
   return i in a;
 }